Status Dx de la Base UIID

Llamando librerías

library(plotly)

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

Leemos datos y agregamos Interpretación de Estatus

gg01_pl$x$data[[2]]$legendgroup

[1] "B. Con IDP"

Agrupando por año

gb02<-base%>%
  group_by(aniocons)%>%
  mutate(n_px=n()#,
         # per_px=round(n_px/nrow(.),4)
         )%>%
  ungroup()%>%
  group_by(aniocons,ESTATUDX)%>%
  mutate(n_st_anio=n(),
         per_st_anio=round(n_st_anio/n_px,4))%>%
  filter(row_number()==1)%>%
  select(-Expediente)
gb02